﻿Public Class SQLValidator
    Dim sqlManager As New SQLManager

    Private Sub btnRetrieve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRetrieve.Click
        rTxtResponse.Text = sqlManager.executeQuery(rTxtQuery.Text)
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        rTxtResponse.Text = sqlManager.executeUpdate(rTxtQuery.Text)
    End Sub
End Class
